home *** CD-ROM | disk | FTP | other *** search
/ Cream of the Crop 21 / Cream of the Crop 21 (Terry Blount) (October 1996).iso / program / multlang.zip / MDEFSTR.DFM / MDEFSTR.txt
Text File  |  1996-06-10  |  3KB  |  122 lines
  1. object DefStr: TDefStr
  2.   Left = 275
  3.   Top = 111
  4.   Width = 388
  5.   Height = 277
  6.   Caption = 'User defined strings'
  7.   Font.Color = clWindowText
  8.   Font.Height = -11
  9.   Font.Name = 'MS Sans Serif'
  10.   Font.Style = [fsBold]
  11.   FormStyle = fsMDIChild
  12.   Position = poScreenCenter
  13.   Visible = True
  14.   OnClose = FormClose
  15.   PixelsPerInch = 96
  16.   TextHeight = 13
  17.   object Label1: TLabel
  18.     Left = 8
  19.     Top = 4
  20.     Width = 361
  21.     Height = 89
  22.     Alignment = taCenter
  23.     AutoSize = False
  24.     Caption = 
  25.       'You can store private (this window) or global (all windows) user' +
  26.       ' defined strings. The string returned by the TMultLang component' +
  27.       ' depends on the selected language. Use the GetString and Set str' +
  28.       'ing methods.'
  29.     Font.Color = clBlack
  30.     Font.Height = -13
  31.     Font.Name = 'Arial'
  32.     Font.Style = [fsBold]
  33.     ParentFont = False
  34.   end
  35.   object Label2: TLabel
  36.     Left = 12
  37.     Top = 104
  38.     Width = 237
  39.     Height = 33
  40.     AutoSize = False
  41.     Caption = 'Shows a defined string called '#39'FileNotFound'#39
  42.     Font.Color = clWindowText
  43.     Font.Height = -11
  44.     Font.Name = 'MS Sans Serif'
  45.     Font.Style = []
  46.     ParentFont = False
  47.   end
  48.   object Label3: TLabel
  49.     Left = 16
  50.     Top = 180
  51.     Width = 237
  52.     Height = 53
  53.     AutoSize = False
  54.     Caption = 
  55.       'Shows a string string called '#39'FileNotFound2'#39'. This string says: ' +
  56.       '"Sorry, && FileNotFound &&. Because it is pointing to device %s ' +
  57.       'which does not exist"'
  58.     Font.Color = clWindowText
  59.     Font.Height = -11
  60.     Font.Name = 'MS Sans Serif'
  61.     Font.Style = []
  62.     ParentFont = False
  63.   end
  64.   object Button1: TButton
  65.     Left = 260
  66.     Top = 100
  67.     Width = 113
  68.     Height = 25
  69.     Caption = 'Show simple'
  70.     TabOrder = 0
  71.     OnClick = Button1Click
  72.   end
  73.   object Button2: TButton
  74.     Left = 260
  75.     Top = 176
  76.     Width = 113
  77.     Height = 25
  78.     Caption = 'Show advanced'
  79.     TabOrder = 1
  80.     OnClick = Button2Click
  81.   end
  82.   object Edit1: TEdit
  83.     Left = 12
  84.     Top = 148
  85.     Width = 121
  86.     Height = 21
  87.     Color = clBtnFace
  88.     TabOrder = 2
  89.     Text = 'Y:\PATRIK.DBF'
  90.   end
  91.   object MultLang1: TMultLang
  92.     Left = 324
  93.     Top = 52
  94.     Width = 45
  95.     Height = 22
  96.     AlignIcon = alLeft
  97.     AlignText = alLeft
  98.     IconMargin = 1
  99.     ItemHeight = 16
  100.     Items.Strings = (
  101.       'English'
  102.       'Swedish')
  103.     ShowIcons = False
  104.     Text = 'English'
  105.     ResizeIcon = False
  106.     TextMargin = 5
  107.     DefaultLanguage = 'English'
  108.     LanguageFile = '%EXEPath%Mdiapp.lan'
  109.     LanguagesData = {}
  110.   end
  111.   object MButtons1: TMButtons
  112.     Captions.Strings = (
  113.       'OK|&OK'
  114.       'Cancel|&Cancel'
  115.       'Yes|&Yes'
  116.       'No|&No')
  117.     Title = 'User defined string example'
  118.     Left = 8
  119.     Top = 48
  120.   end
  121. end
  122.